home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Eagles Nest BBS 6
/
Eagles_Nest_Mac_Collection_Disc_6.TOAST
/
Windows
/
VBSuperBible
/
VB SuperBible.image
/
CHAP19
/
DRIVE.FRM
(
.txt
)
next >
Wrap
Visual Basic Form
|
1992-03-10
|
5KB
|
126 lines
Drive
Drives, Dirs, and Files Project
wwwwwwwwwwwwww
wwwwwwwwwwwww
Form1
SelectedFile
Drive1
Command1
File1
Command2
E&xit
Archive_Check
Archive
Hidden_Check
Hidden
Normal_Check
Normal
ReadOnly_Check
Read Only
System_Check
System
FileCount
Form_Click
Drive1_Change
Form_LinkOpent
Cancel
Form_LostFocus
Form_Load
Drive1
DriveH
Path^
DurDir6
File1j
FilePath
urDir
Check1_Click8
Hidden_Checky
Hidden
Arhive_Check
Normal_Check
ReadOnly_Check
System_Check
System
ReadOnly
Normal
Archive
Archive_Check_Click
Archive_Check
Value
Hidden_Check_Click>
Normal_Check_ClickR
ReadOnly_Check_Click
System_Check_Click
Dir1_Change
File1_Clickt
File1_PathChange
Label1
Caption
ListCount
File1_PatternChange
Text1_Change
Text1
Pattern
Label2
FileName
FileCountu
SelectedFile
thenSelectedFile
File1_DblClick
FileJ
ParseFileName:
TempFile
TempFileName
FilePattern*
TempDir
Temp_DirV
SelectedFile_Change
PathName
OldPathC
ThenMsgBox
SelectedFile_KeyPress
KeyAscii
Command1_Click
Old_FileName
Command2_Clickf
SelectedFile_GotFocus
SelStart
SelLength
FileCount_Click
CurrentDrive
Drive1_GotFocus
Timer1_Timer
Form_Load
Archive_Check_Click
##,###
Files
Hidden_Check_Click
##,###
Files
Normal_Check_Click
##,###
Files
ReadOnly_Check_Click
##,###
Files
System_Check_Click
##,###
Files
Dir1_Change
File1_PathChange
##,###
Files
File1_PatternChange
##,###
Files
Drive1_Change
Drive
not ready
File1_Click
ParseFileName
Command1_Click
If Err > 0 Then MsgBox "Invalid File Name Specified", 48
File1.Refreshe
Command2_Click
SelectedFile_GotFocus